<p> Marco/Scilab Utilities </p>

98cc0882-5554-42f5-bdf9-97945cdb973e 11 3 5 auto

&[DATE] &[TIME] - &[FILENAME]

x y char size color plotG n x length : plot x 1 el y 1 el char size color augment : i 2 n range plot plot x i el y i el char size color augment stack : for plot 41 line :

V mdiff R V rows V rows 1 > (- V cols V cols 1 > (- matrix : ii 1 R length range R ii el V ii 1 + el V ii el - : for R 31 line :

t0 1 time :

V mdiff2 lR V length 1 - : V rows 1 > i 1 lR range R i el V i 1 + el V i el - : for i 1 lR range R 1 i el V i 1 + el V i el - : for if R 31 line :

z2 4273151 mat :

z1 13589416 mat :

z1 mdiff 22315 - 15 mat

Examples:

z2 mdiff 2 - 54 - 2 - 41 mat

a b divide a b / :

a b plus a b + :

a b times a b * :

a b minus a b - :

x y 2 fun map xh x cols : xv x rows : yh y cols : yv y rows : okx xh yh ≡ (xh 1 ≡ (yh 1 ≡ (| (| (: oky xv yv ≡ (xv 1 ≡ (yv 1 ≡ (| (| (: okx oky & xx x : yy y : xh yh < ii 2 yh range xx xx x augment : for xh yh > ii 2 xh range yy yy y augment : for 1 if if xv yv < ii 2 yv range xx xx x stack : for xv yv > ii 2 xv range yy yy y stack : for 1 if if ii 1 xv yv Max range jj 1 xh yh Max range zz ii jj el xx ii jj el yy ii jj el fun : for for zz 61 line Incompatible sizes error if 71 line :

z1 z2 A B times map 4122032361626101618872135566328391524271213589456 mat

Examples:

V cond index R V rows V cols matrix : j 1 : i 1 V length range cond vectorize i el R j el V i el : j j 1 + : 21 line continue if for R rows 1 > (R 1 j 1 - 11 submatrix R 111 j 1 - submatrix if 41 line :

Examples:

z1 z1 4 > index 58913 mat

z2 z1 mdiff 0 > index 427341 mat

x y D x 1 x rows 1 x cols 1 - submatrix y A B minus map x 1 x rows 2 x cols submatrix y A B minus map A B times map :

L1 L2 InterX x1 L1 1 row transpose : x2 L2 1 row : y1 L1 2 row transpose : y2 L2 2 row : dx1 x1 mdiff : dy1 y1 mdiff : dx2 x2 mdiff : dy2 y2 mdiff : ii 1 dx1 length range S1 ii el dx1 ii el y1 ii el * dy1 ii el x1 ii el * - : S2 ii el dx2 ii el y2 ii el * dy2 ii el x2 ii el * - : 21 line for S2 S2 transpose eval : C1 dx1 y2 A B times map dy1 x2 A B times map - S1 D 0 mwle : C2 y1 dx2 A B times map x1 dy2 A B times map - (transpose S2 transpose D 0 mwle transpose : ff C1 C2 mwand mwfind : ii ff 1 el eval : jj ff 2 el eval : ii length 0 ≡ 21 Zeros ii ii transpose : dx2 dx2 transpose : dy2 dy2 transpose : S2 S2 transpose : L dy2 jj el dx1 ii el A B times map dy1 ii el dx2 jj el A B times map - : ii ii L 0 ≠ index : jj jj L 0 ≠ index : L L L 0 ≠ index : PP1 dx2 jj el S1 ii el A B times map dx1 ii el S2 jj el A B times map - : PP2 dy2 jj el S1 ii el A B times map dy1 ii el S2 jj el A B times map - : PP PP1 PP2 augment L L augment A B divide map : PP 121 line if 161 line :

L1 123456890112203 0.5 28 mat :

L2 345665790133202128 mat :

tt L1 L2 InterX : 4.5 2 5.5 1 5.6667 0.6667 7.25 1.875 8.75 1.125 52 mat

plot1 tt 1 col tt 2 col o 5 black plotG :

1 time t0 - 1.6 s *

L1 transpose L2 transpose plot1 3 1 sys

CWD C:\SmathFile CurrentDirectory :

T1 CWD TrifoliumBlue rfile :

T2 CWD TrifoliumRed rfile :

T1 T2 2 1 sys

Ω T1 transpose T2 transpose InterX : #

Intersect Ω 1 col Ω 2 col o 6 black plotG :

T1 T2 Intersect 3 1 sys

1 time t0 - min 0